unit fanalisebusca;

{$mode objfpc}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls, DBGrids, Buttons;
type

  { TFormAnaliseBusca }

  TFormAnaliseBusca = class(TForm)
    ButtonBuscarProdutor: TBitBtn;
    ButtonLocalizar: TBitBtn;
    ButtonLimpar: TBitBtn;
    ButtonSair: TBitBtn;
    DBGrid1: TDBGrid;
    EditNomeProdutor: TEdit;
    EditNomeTecnico: TEdit;
    EditNumRegistro: TEdit;
    EditData: TEdit;
    EditId_Produtor: TEdit;
    EditId_Tecnico: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Panel1: TPanel;
    procedure ButtonLimparClick(Sender: TObject);
    procedure ButtonLocalizarClick(Sender: TObject);
    procedure ButtonBuscarProdutorClick(Sender: TObject);
    procedure ButtonSairClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormAnaliseBusca: TFormAnaliseBusca;

implementation

uses
  ucondicoesconsulta, dmprincipal, dmcadastro, dmanalise;

{ TFormAnaliseBusca }

procedure TFormAnaliseBusca.ButtonLocalizarClick(Sender: TObject);
var
  condicoes: TCondicoesConsulta;
begin
  condicoes := TCondicoesConsulta.Create(CON_AND);
  Condicoes.AddCampo('a.id_produtor', 'p.id_produtor');
  condicoes.AddCampo('a.id_tecnico', 't.id_tecnico');
  condicoes.Add('a.numero_registro', EditNumRegistro.Text);
  //condicoes.Add('a.data_analise', EditData.Text);               como resolver essa data ?
  condicoes.Add('a.id_produtor', EditId_Produtor.Text);
  /// Deveria ser um combobox
  condicoes.Add('a.id_tecnico', EditId_Tecnico.Text);
  condicoes.AddText('p.nome_produtor', EditNomeProdutor.Text);
  condicoes.AddText('t.nome_tecnico', EditNomeTecnico.Text);
  DataPrincipal.ConsultaCondicoes(DataAnalise.ZQueryAnalise,
    'analise a, produtor p, tecnico t', Condicoes);
end;

procedure TFormAnaliseBusca.ButtonLimparClick(Sender: TObject);
begin
  EditData.Clear();
  EditId_Produtor.Clear();
  EditId_Tecnico.Clear();
  EditNomeProdutor.Clear();
  EditNomeTecnico.Clear();
  EditNumRegistro.Clear();
end;

procedure TFormAnaliseBusca.ButtonBuscarProdutorClick(Sender: TObject);
var
  produtor: TDadosProdutor;
begin
  produtor := DataCadastro.ProdutorBusca();
  EditId_Produtor.Text := IntToStr(produtor.id_produtor);
  EditNomeProdutor.Text := produtor.nome_produtor;
end;

procedure TFormAnaliseBusca.ButtonSairClick(Sender: TObject);
begin
  Close();
end;

initialization
  {$I fanalisebusca.lrs}

end.
